home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2000 #1 / Amiga Plus CD - 2000 - No. 1.iso / Tools / Hard / AteoIO / InstallPixel64 / InstallAteoBus < prev    next >
Encoding:
Text File  |  1999-12-03  |  31.1 KB  |  855 lines

  1.  
  2. ;***************************************************
  3. ;** * Installation de l'AtéoBus pour Amiga 1200   **
  4. ;**                                               **
  5. ;** * Installation des utilitaires pour l'AtéoBus **
  6. ;**       - StartAteoBus                          **
  7. ;**       - Picasso96                             **
  8. ;**       - ModePro                               **
  9. ;**                                               **
  10. ;** * Installation de AteoSer                     **
  11. ;**                                               **
  12. ;** * Installation de AteoPar                     **
  13. ;**                                               **
  14. ;** * Installation de AteoNet                     **
  15. ;**                                               **
  16. ;**                        Installation Rev. 1.25 **
  17. ;**                                   (08/11/99)  **
  18. ;***************************************************
  19. ;
  20. ; Sorry, all languages are not translated...
  21. ; If you want to translate them in your home country
  22. ; language send us an E-Mail a fax or a letter.
  23. ; Buggs are also welcome :-)
  24. ;
  25. ;**************************************************
  26. ;
  27. ; Little History :
  28. ;-----------------
  29. ; 1.0ß : First release (30.03.98)
  30. ; 1.1ß : Add losts of stuff (under test)
  31. ; 1.2ß : Correct some textes + English translation
  32. ;   .
  33. ;   .
  34. ;   .
  35. ; 1.16 : Fix a bug in the "ModePro.Prefs" installation
  36. ; 1.17 : New AteoSerPrefs revision (1.12)
  37. ;        New AteoParPrefs revision (1.11)
  38. ; 1.18 : Add installation for AteoNet boards (ateonet.device + AmiTCP-4.0)
  39. ;      : New script
  40. ; 1.19 : Update ModePro (4.63)
  41. ; 1.20 : Update Picasso 96 (1.43_ateo)
  42. ; 1.21 : Update StartAteoBus (5.05)
  43. ; 1.22 : Add compression of 'StartAteoBus' because out of space on floppy.
  44. ; 1.23 : New version of the ateopar.device (1.01).
  45. ; 1.24 : Forgot the ateobus.library (3.0).
  46. ; 1.25 : Fix bug in locale path + change "LOCALE:" by "SYS:Locale/" (strange trouble with OS 3.5)
  47. ;        New AteoSerPrefs revision (1.24)
  48. ;        New AteoParPrefs revision (1.24)
  49. ;
  50. ;**************************************************
  51.  
  52. (set #Install_Rev        "1.25")
  53. (set #AteoBus_Rev        "2.2")
  54. (set #Pixel64_Rev        "A")
  55. (set #StartAteoBus_Rev    "5.05")
  56. (set #Picasso96_Rev        "1.43_ateo")
  57. (set #ModePro_Rev        "4.63")
  58. (set #AteoSerPrefs_Rev    "1.24")
  59. (set #AteoSerDevice_Rev    "0.4")
  60. (set #AteoParPrefs_Rev    "1.24")
  61. (set #AteoParDevice_Rev    "1.01")
  62. (set #AteoBusLibrary_Rev    "3.0")
  63. (set #AteoNetDevice_Rev    "0.1 Alpha 0")
  64. (set #AmiTCP_Rev        "4.0")
  65. (set #Date            "08/11/99")
  66.  
  67. (set #System             (getversion "intuition.library" (resident)))
  68. (set #System_Version    (/ #System 65536))
  69. (set #System_Revision    (- #System (* #System_Version 65536)))
  70. (set #Minimum_Memory    "2000000")
  71.  
  72. (set #Install_StartAteoBus    0)
  73. (set #Install_Pixel64        1)
  74. (set #Install_AteoSer        0)
  75. (set #Install_AteoPar        0)
  76. (set #Install_AteoNet        0)
  77.  
  78. (set #Install_Cmd_StartAteoBus    "Install")
  79. (set #Compressor                "LhA")
  80. (set #Install_Path                (pathonly @icon))
  81. (set #Working_Path                "RAM:Ateo-Concepts/")
  82. (set #Script_Name                "Execute_Me")
  83.  
  84. ; System
  85. (set #SYS                        "SYS:")
  86. (set #ENV                        "ENV:")
  87. (set #ENVARC                    "ENVARC:")
  88. (set #C                        "C:")
  89. (set #LIB                        "Libs:")
  90. (set #DEVS                    "Devs:")
  91. (set #NETWORKS                    (tackon #DEVS "Networks/"))
  92. (set #LOCALE                    (tackon (tackon "SYS:Locale/Catalogs/" @language) "Ateo_Concepts/"))
  93. (set #Ext_Catalog                ".catalog")
  94. (set #Ext_Info                    ".info")
  95.  
  96. ; StartAteoBus
  97. (set #S_Path_StartAteoBus        (tackon #Install_Path "StartAteoBus/"))
  98. (set #File_StartAteoBus            "StartAteoBus")
  99. (set #File_AteoBus_Library        "ateobus.library")
  100.  
  101. ; Picasso96
  102. (set #S_Path_Picasso96            (tackon #Install_Path "Pixel64/"))
  103. (set #S_Path_Install_Picasso96    (tackon #Working_Path "Picasso96Install/"))
  104. (set #File_Picasso96            "Picasso96")
  105. (set #File_Install_Picasso96        "InstallPicasso96")
  106.  
  107. ; ModePro
  108. (set #S_Path_ModePro             (tackon #Install_Path "Pixel64/"))
  109. (set #S_Path_Install_ModePro         (tackon #Working_Path "ModePro/"))
  110. (set #File_ModePro                 "ModePro")
  111. (set #File_Install_ModePro         "InstallModePro")
  112. (set #File_Prefs_ModePro         "ModePro.Pref")
  113.  
  114. ; AteoSerPrefs & AteoParPrefs
  115. (set #D_Path_AteoPrefs            (tackon #SYS "Prefs/Ateo_Concepts/"))
  116. (set #S_Icone_AteoPrefs            (tackon #Install_Path (cat "StartAteoBus" #Ext_Info)))
  117. (set #Default_Device_Name        "scsi.device")
  118. (set #Default_Device_Unit        0)
  119.  
  120. ; AteoSerPrefs
  121. (set #S_Path_AteoSer            (tackon #Install_Path "AteoSer/"))
  122. (set #S_Path_Catalog_AteoSer        (tackon (tackon #S_Path_AteoSer "catalogs/") @language))
  123. (set #File_AteoSerPrefs            "AteoSerPrefs")
  124. (set #File_AteoSerDevice            "ateoser.device")
  125. (set #Default_SER0_Offset        "0x3f8")
  126. (set #Default_SER1_Offset        "0x2f8")
  127. (set #Default_SER0_Delay            "0")
  128. (set #Default_SER1_Delay            "0")
  129. (set #Default_SER0_IOFast        1)
  130. (set #Default_SER1_IOFast        1)
  131. (set #Default_SER0_IRQ            "4")
  132. (set #Default_SER1_IRQ            "3")
  133. (set #Default_SER0_Frequency        "1843200")
  134. (set #Default_SER1_Frequency        "1843200")
  135.  
  136. ; AteoParPrefs
  137. (set #S_Path_AteoPar            (tackon #Install_Path "AteoPar/"))
  138. (set #S_Path_Catalog_AteoPar        (tackon (tackon (tackon #S_Path_AteoPar "catalogs/") @language) "Ateo_Concepts/"))
  139. (set #File_AteoParPrefs            "AteoParPrefs")
  140. (set #File_AteoParDevice            "ateopar.device")
  141.  
  142. ; AteoNet
  143. (set #S_Path_AteoNet            (tackon #Install_Path "AteoNet/"))
  144. (set #S_Path_AmiTCP                (tackon #Install_Path "AteoNet/"))
  145. (set #S_Path_Install_AmiTCP        (tackon #Working_Path "AmiTCP-4.0/"))
  146. (set #File_AmiTCP                "AmiTCP")
  147. (set #File_Install_AmiTCP        "Install_AmiTCP")
  148. (set #File_AteoNetDevice            "ateonet.device")
  149.  
  150.  
  151. ;********************************
  152. ;************ TEXTES ************
  153. ;********************************
  154.  
  155. (if (= @language "français")
  156. (
  157.     (set #Mess_Translation_Name "Atéo Concepts")
  158.  
  159.      (if (= #Install_StartAteoBus "1")
  160.           (set #Mess_Welcome "Bienvenue à l'installation de l'AtéoBus"))
  161.      (if (= #Install_Pixel64 "1")
  162.           (set #Mess_Welcome "Bienvenue à l'installation de l'AtéoBus et de la Pixel64"))
  163.      (if (AND (= #Install_AteoSer "1") (= #Install_AteoPar "0") (= #Install_AteoNet "0"))
  164.           (set #Mess_Welcome "Bienvenue à l'installation de l'AtéoSer"))
  165.      (if (AND (= #Install_AteoSer "0") (= #Install_AteoPar "1") (= #Install_AteoNet "0"))
  166.           (set #Mess_Welcome "Bienvenue à l'installation de l'AtéoPar"))
  167.      (if (AND (= #Install_AteoSer "0") (= #Install_AteoPar "0") (= #Install_AteoNet "1"))
  168.           (set #Mess_Welcome "Bienvenue à l'installation de l'AtéoNet"))
  169.      (if (AND (= #Install_AteoSer "1") (= #Install_AteoPar "1") (= #Install_AteoNet "0"))
  170.           (set #Mess_Welcome "Bienvenue à l'installation de l'AtéoSer et de l'AtéoPar"))
  171.      (if (AND (= #Install_AteoSer "1") (= #Install_AteoPar "1") (= #Install_AteoNet "1"))
  172.           (set #Mess_Welcome "Bienvenue à l'installation de : AtéoSer, AtéoPar et AteoNet"))
  173.  
  174.      (set #Mess_Choice "Choisisez les programmes à installer :")
  175.     (set #Help_Choice (cat    "Selectionnez les modules que vous voulez installez :"
  176.                         "\n-AtéoBus : Absolument nécessaire sinon l'Amiga 1200 ne reconnaitra pas l'AtéoBus."
  177.                         "\n-Picasso96 : C'est le programme qui gère les cartes graphiques et permet l'affichage d'un écran le moniteur (nécessaire si vous avez une Pixel64)."
  178.                         "\n-ModePro : Est-ce qu'on appel un 'promoteur d'écran'. C'est lui qui \"transforme\" les ouvertures d'écrans PAL, NTSC, ou autres, vers des écrans Pixel64 pour les programmes qui ne permettent pas de choisir des écrans Pixel64 directement."))
  179.  
  180.     (set #Mess_Prepare "Maintenant, quelques fichiers\nvont-êtres copiés en mémoire pour\npréparer l'installation.")
  181.     (set #Mess_Expand "Décompression du fichier")
  182.     (set #Mess_CopyFile-1 "Nous allons maintenant installer")
  183.     (set #Mess_CopyFile-2 "* Si ce fichier n'existe pas,\nil sera copié\n\n* Si ce fichier existe,\nil sera mis à jour si nécessaire...\n\n-->> Cliquez pour continuer <<--")
  184.     (set #Mess_CopyFileCV "Copie du fichier")
  185.     (set #Mess_Update_Startup (cat     "Une commande va être ajouté\nà la 'Startup-Sequence'\nafin que l'AtéoBus soit reconu\nau démarrage par l'Amiga."
  186.                                 "\n\n\n(une sauvegarde de la 'Startup-Sequence'\nsera faite sous le nom :\n'Startup-Sequence.old')"))
  187.     (set #Mess_Choice_Source "Voulez-vous installer ce programme\ndepuis la disquette fournie ou\ndepuis une source plus récente ?")
  188.     (set #Help_Choice_Source (cat    "-Si c'est la première installation que vous faite, choisisez l'installation depuis la disquette."
  189.                             "\n-Si vous avez récupérez une archive plus récente que celle que nous fournissons, vous pouvez selectionner le deuxième choix."))
  190.  
  191.     (set #Mess_Floppy_Source "Depuis la disquette fournie")
  192.     (set #Mess_Other_Source "Depuis une source plus récente")
  193.     (set #Mess_Select_Path "Dans quel répertoire ce trouve l'archive ?")
  194.     (set #Mess_No_Source "Il n'y a pas d'archive dans le répertoire que vous avez indiqué")
  195.     (set #Mess_Create_Repertory "Création d'un dossier 'Ateo_Concepts'\ndans le répertoire 'SYS:Prefs'\nafin de regrouper tous les\nprogrammes de préférence pour l'AtéoBus")
  196.  
  197.     (set #Mess_ToolType_Device "Nom de votre device SCSI")
  198.     (set #Help_ToolType_Device (cat    "Vous devez écrir ici le nom de votre device SCSI sinon le programme ne fonctionnera pas.\n"
  199.                                 "- Si vous utilisez le port IDE standard de l'A1200, le nom du device est \"scsi.device\".\nFaites attention, le nom du device est sensible aux majuscules et minuscules!\n"
  200.                                 "- Si vous utilisez un autre system comme un module SCSI sur une carte accélératrice Blizzard 12x0 ou un Squirrel, le nom du device va changé.\n\nVoici une petite liste de ce que vous pouvez trouver:\n* Kit SCSI pour Blizzard = \"1230scsi.device\"\n* Squirrel = \"squirrel.device\"\n* Etc...\n\n\nSi vous ne savez rien de votre device, vous pouvez utiliser des programmes comme \"Scout\", \"ARTM\", \"SysInfo\" ou autre pour obtenir des informations sur le nom de device et sur le numéro d'unité de votre disque dur."))
  201.  
  202.     (set #Mess_ToolType_Unit "Numéro d'unité de votre disque dur principal\n(correspondant au nom du device)")
  203.     (set #Help_ToolType_Unit (cat    "Dans le précédent choix vous avez donné le nom du device, vous devez maintenant donner le numéro d'unité correspondant au disque dur connecté sur ce device.\n"
  204.                             "- Si vous utilisez le port IDE natif du A1200, le numéro d'unité est '0'.\n"
  205.                             "- Si vous utilisez un device SCSI (Squirrel ou module Blizzard) le numéro d'unité est un chiffre de '0' à '7'.\n\n\nSi vous ne savez rien de votre device, vous pouvez utiliser des programmes comme \"Scout\", \"ARTM\", \"SysInfo\" ou autre pour obtenir des informations sur le nom de device et sur le numéro d'unité de votre disque dur."))
  206.  
  207.     (set #Mess_ToolType_Offset "Offset de la carte")
  208.     (set #Help_ToolType_Offset "Pas d'aide!")
  209.  
  210.     (set #Mess_ToolType_Delay "??????")
  211.     (set #Help_ToolType_Delay "Pas d'aide!")
  212.  
  213.     (set #Mess_ToolType_IOFast "????????")
  214.     (set #Help_ToolType_IOFast "Pas d'aide!")
  215.  
  216.     (set #Mess_ToolType_IRQ "IRQ de la carte (0xff si pas d'IRQ)")
  217.     (set #Help_ToolType_IRQ "Pas d'aide!")
  218.  
  219.     (set #Mess_ToolType_Frequency "Fréquence de l'oscillateur sur la carte\n(l'unité de la fréquence est en KHz)")
  220.     (set #Help_ToolType_Frequency "Pas d'aide!")
  221.  
  222.     (set #Mess_Run_Install "Lancement de l'installation")
  223.     (set #Mess_Wait "Veuillez patientez quelques instants...")
  224.  
  225.     (set #Mess_Prefs_ModePro "Un fichiers de préférences\ndu programme ModePro existe\ndéjà sur votre disque dur.\nVoulez-vous le remplacer par\ndes préférences pour la Pixel64 ?")
  226.     (set #Help_Prefs_ModePro "Vous avez déjà un fichier de préférence pour le programme ModePro.\nSi vous selectionnez l'option 'oui' vos anciènnes préférences vont-êtres éffacées. Si vous voulez les garder, selectionnez 'non'.")
  227.  
  228.     (set #Mess_CleanUp "Effacement des fichiers temporaires de la mémoire")
  229.     (set #Mess_End "L'installation est finie")
  230.  
  231.     (set #Mess_Error_Startup "Une erreur est survenue lors de la\nmise à jour de la 'Startup-Sequence'.\n\nLa 'Startup-Sequence' originale va étre restaurée...")
  232.     (set #Mess_Error_Memory "L'Amiga n'a pas assez de mémoire.\nEssayez de désactiver tous les autres\nprogrammes en marche et recommencez.\n\nSi l'installation ne fonctionne toujours pas,\nmettez plus de mémoire dans l'Amiga\navant d'essayer à nouveau")
  233. ))
  234.  
  235. (if (= @language "english")
  236. (
  237.     (set #Mess_Translation_Name "Atéo Concepts")
  238.  
  239.      (if (= #Install_StartAteoBus "1")
  240.          (set #Mess_Welcome "Welcome to the AtéoBus installation"))
  241.      (if (= #Install_Pixel64 "1")
  242.          (set #Mess_Welcome "Welcome to the AtéoBus and Pixel64 Installation"))
  243.      (if (AND (= #Install_AteoSer "1") (= #Install_AteoPar "0") (= #Install_AteoNet "0"))
  244.          (set #Mess_Welcome "Welcome to the AtéoSer installation"))
  245.      (if (AND (= #Install_AteoSer "0") (= #Install_AteoPar "1") (= #Install_AteoNet "0"))
  246.          (set #Mess_Welcome "Welcome to the AtéoPar installation"))
  247.      (if (AND (= #Install_AteoSer "0") (= #Install_AteoPar "0") (= #Install_AteoNet "1"))
  248.          (set #Mess_Welcome "Welcome to the AtéoNet installation"))
  249.      (if (AND (= #Install_AteoSer "1") (= #Install_AteoPar "1") (= #Install_AteoNet "0"))
  250.           (set #Mess_Welcome "Welcome to the AtéoSer and AtéoPar installation"))
  251.      (if (AND (= #Install_AteoSer "1") (= #Install_AteoPar "1") (= #Install_AteoNet "1"))
  252.           (set #Mess_Welcome "Welcome to the AtéoSer, AtéoPar and AtéoNet installation"))
  253.  
  254.      (set #Mess_Choice "Choose softwares to install :")
  255.     (set #Help_Choice (cat    "Select modules you want to install :"
  256.                         "\n-AtéoBus : You absolutly need it, otherwise the Amiga won't recognize the AtéoBus."
  257.                         "\n-Picasso96 : This is the program that manage graphics boards and allow display on a monitor's screen (necessary if you have a Pixel64)."
  258.                         "\n-ModePro : Is what we call a 'screen promotor'. This is it that \"promote\" PAL, NTSC, and other, opening screens to Pixel64's screen for programs that doesn't allow to choose directly a Pixel64's screen."))
  259.  
  260.     (set #Mess_Prepare "Now, files will be copy\nin memory to prepare\nthe installation.")
  261.     (set #Mess_Expand "Extracting the file")
  262.     (set #Mess_CopyFile-1 "We will now install")
  263.     (set #Mess_CopyFile-2 "* If this file doesn't exists,\nit will be created\n\n* If this file exists,\nit will be updated if necessary...\n\n-->> Click to continue <<--")
  264.     (set #Mess_CopyFileCV "Installing file")
  265.     (set #Mess_Update_Startup (cat    "One line will be add to the\n'Startup-Sequence' so that the AtéoBus\nwill appear after you start the Amiga."
  266.                                 "\n\n\n(a backup copy of the 'Startup-Sequence'\nwill be done under the name :\n'Startup-Sequence.old')"))
  267.     (set #Mess_Choice_Source "Do you want to install this file\nfrom the supplied floppy disk or\nfrom a newer source ?")
  268.     (set #Help_Choice_Source (cat    "-If it's the first time you make the installation, choose the installation from the supllied floppy disk."
  269.                             "\n-If you have found a newer archive that the one we supply, you can choose the second choice."))
  270.  
  271.     (set #Mess_Floppy_Source "From the supplied floppy disk")
  272.     (set #Mess_Other_Source "From a newer source")
  273.     (set #Mess_Select_Path "In witch drawer is the archive ?")
  274.     (set #Mess_No_Source "There is no archive in the drawer that you choose")
  275.     (set #Mess_Create_Repertory "Creation of the 'Ateo_Concepts' directory\nin the repertory 'SYS:Prefs'\nto gather all the preferences\nprograms for the AtéoBus")
  276.  
  277.     (set #Mess_ToolType_Device "Name of your SCSI device")
  278.     (set #Help_ToolType_Device (cat    "You must write here the name of your device otherwise the program will not work.\n"
  279.                                 "- If you use the standard A1200 IDE port, the name of the device is \"scsi.device\".\nBe carreful, the device name is case sensitive!\n"
  280.                                 "- If you use an other system like a SCSI module on a Blizzard 12x0 accelerator board or a Squirrel, the device name will change.\n\nHere it is a little list of what you can find:\n* Blizzard SCSI kit = \"1230scsi.device\"\n* Squirrel = \"squirrel.device\"\n* Etc...\n\n\nIf you don't know anything about your device, you can use program like \"Scout\", \"ARTM\", \"SysInfo\" or other to obtain informations on the device name and the unit number of your hard drive."))
  281.  
  282.     (set #Mess_ToolType_Unit "Unit numer of your main hard drive\n(corresponding to the device name)")
  283.     (set #Help_ToolType_Unit (cat    "As you first indicate the device name, you must now give the unit corresponding to the hard drive connected on this device.\n"
  284.                             "- If you use the native A1200 IDE port, the unit number is '0'.\n"
  285.                             "- If you use a SCSI device (Squirrel or Blizzard module) the unit number will be from '0' to '7'.\n\n\nIf you don't know anything about your device, you can use program like \"Scout\", \"ARTM\", \"SysInfo\" or other to obtain informations on the device name and the unit number of your hard drive."))
  286.  
  287.     (set #Mess_ToolType_Offset "Offset of the board")
  288.     (set #Help_ToolType_Offset "No Help!")
  289.  
  290.     (set #Mess_ToolType_Delay "??????")
  291.     (set #Help_ToolType_Delay "No Help!")
  292.  
  293.     (set #Mess_ToolType_IOFast "????????")
  294.     (set #Help_ToolType_IOFast "No Help!")
  295.  
  296.     (set #Mess_ToolType_IRQ "Board IRQ (0xff if no IRQ)")
  297.     (set #Help_ToolType_IRQ "No Help!")
  298.  
  299.     (set #Mess_ToolType_Frequency "Frequency of the oscillator on the board\n(frequency unit is KHz)")
  300.     (set #Help_ToolType_Frequency "No Help!")
  301.  
  302.     (set #Mess_Run_Install "Starting the installation")
  303.     (set #Mess_Wait "Please wait a few time...")
  304.  
  305.     (set #Mess_Prefs_ModePro "A preferences file for ModePro\nalready exist on your hard drive.\nDo you want to replace them by\npreferences for thePixel64 ?" )
  306.     (set #Help_Prefs_ModePro "You alreay have a preference file for the ModePro software.\nIf you choose the option 'yes' your old setings will be deleted. If you want to keep them, choose 'no'.")
  307.  
  308.     (set #Mess_CleanUp "Deleting temporary files from memory")
  309.     (set #Mess_End "The installation is finished")
  310.  
  311.     (set #Mess_Error_Startup "One error occurs during\nthe up to date of the 'Startup-Sequence'.\n\nThe original 'Startup-Sequence' will be copy back...")
  312.     (set #Mess_Error_Memory "The Amiga doesn't have enough memory.\nTry to desactivate all other\nworking programs and restart.\n\nIf the installation still doesn't work,\nadd memory to the Amiga\nbefore to try again")
  313. ))
  314.  
  315. ;(if (= @language "deutsch")
  316. ;(
  317. ;    (set #Rien "Nothing!")
  318. ;))
  319.  
  320. ;(if (= @language "italiano")
  321. ;(
  322. ;    (set #Rien "Nothing!")
  323. ;))
  324.  
  325. ;(if (= @language "español")
  326. ;(
  327. ;    (set #Rien "Nothing!")
  328. ;))
  329.  
  330. ;(if (= @language "suisse")
  331. ;(
  332. ;    (set #Rien "Nothing!")
  333. ;))
  334.  
  335. ;(if (= @language "finland")
  336. ;(
  337. ;    (set #Rien "Nothing!")
  338. ;))
  339.  
  340.  
  341. ;************************************
  342. ;************ PROCEDURES ************
  343. ;************************************
  344.  
  345. (procedure AskSource #Def_Source #Version
  346.     (set #Choix
  347.         (askchoice
  348.             (prompt "->  " (fileonly #Def_Source) " " #Version " <-\n\n" #Mess_Choice_Source "\n")
  349.             (choices #Mess_Floppy_Source #Mess_Other_Source)
  350.             (help "\n" #Help_Choice_Source)
  351.             (default 0)
  352.         )
  353.     )
  354.  
  355.     (set #Source (cat #Def_Source ".lha"))
  356.     (set #Destination #Working_Path)
  357.  
  358.     (if (= #choix "1")
  359.     (
  360.         (set #Reponse "1")
  361.  
  362.         (while (= #Reponse "1")
  363.             (set #Choix
  364.                 (askdir
  365.                     (help "Not yet!")
  366.                     (prompt "-> " (fileonly #Def_Source) " <-\n\n" #Mess_Select_Path "\n")
  367.                     (disk)
  368.                     (default #Install_Path)
  369.                 )
  370.             )
  371.  
  372.             (set #Reponse "0")
  373.  
  374.             (if (NOT (exists (cat (tackon #Choix (fileonly #Def_Source)) ".lha")))
  375.                 (set #Reponse    (askbool
  376.                                 (prompt "\n\n" #Mess_No_Source "...")
  377.                                 (default 1)
  378.                                 (help "Not yet!")
  379.                             )
  380.                 )
  381.                 (set #Source (cat (tackon #Choix (fileonly #Def_Source)) ".lha"))
  382.             )
  383.         )
  384.     ))
  385. )
  386.  
  387. (procedure CopyFile #Source #Destination
  388.     (copyfiles
  389.         (source #Source)
  390.         (dest (pathonly #Destination))
  391.         (newname (fileonly #Destination))
  392.         (safe)
  393.         (files)
  394.         (optional nofail)
  395.     )
  396. )
  397.  
  398. (procedure CopyFileCV #Source #Destination
  399.     (message "\n\n" #Mess_CopyFile-1  " \"" #Destination "\".\n\n\n" #Mess_CopyFile-2)
  400.     (copylib
  401.         (prompt "\n" #Mess_CopyFileCV " \"" (fileonly #Destination) "\"")
  402.         (help "No help!")
  403.         (confirm)
  404.         (source #Source)
  405.         (dest (pathonly #Destination))
  406.         (newname (fileonly #Destination))
  407. ;        (safe)
  408.         (optional fail)
  409. ;        (nogauge)
  410.     )
  411. )
  412.  
  413. (procedure Expand #Nom
  414. ; #Source must be set before calling this procedure
  415.     (transcript "Decompress file : " #Nom ".lha")
  416.     (working #Mess_Expand " : " #Nom ".lha\n\n" #Mess_Wait)
  417.     (if    (run (cat (tackon #Working_Path #Compressor) " -2MN e \"" #Source "\" " #Working_Path))
  418.         (abort "Error")
  419.     )
  420. )
  421.  
  422. (procedure Lancement #Nom
  423.     (transcript "Running file : " #Nom)
  424.     (working #Mess_Run_Install " : " #Nom)
  425.     (if    (execute
  426.             (safe)
  427.               (tackon #Working_Path #Script_Name)
  428.         )
  429.         (abort "Error in the script file (procedure Lancement)")
  430.     )
  431. )
  432.  
  433. (procedure StartAteoBus
  434.     (CopyFileCV (tackon #Working_Path #File_StartAteoBus) (tackon #C #File_StartAteoBus))
  435.  
  436.     (if (NOT (run (cat (tackon #Install_Path #Install_Cmd_StartAteoBus) " check")))
  437.     (
  438.         (message "\n\n" #Mess_Update_Startup)
  439.  
  440.         ; Vérification de l'éxistance d'un fichier 'Startup-Sequence.old'
  441.         ; puis effacement...
  442.         (if (exists "S:Startup-Sequence.old")
  443.             (delete
  444.                 "S:Startup-Sequence.old"
  445.                 (optional "force")
  446.         ))
  447.  
  448.         ; Backup de la 'Startup-Sequence' avant de la modifier
  449.         (CopyFile "S:Startup-Sequence" "S:Startup-Sequence.old")
  450.  
  451.         (if (NOT (run (tackon #Install_Path #Install_Cmd_StartAteoBus)))
  452.         (
  453.             (message "\n\n" #Mess_Error_Startup)
  454.             (if (exists "S:Startup-Sequence")
  455.                 (delete
  456.                     "S:Startup-Sequence"
  457.                     (optional "force")
  458.             ))
  459.  
  460.             ; Restauration de la 'Startup-Sequence'
  461.             (CopyFile "S:Startup-Sequence.old" "S:Startup-Sequence")
  462.         ))
  463.     ))
  464. )
  465.  
  466. (procedure CheckPrefsDrawer
  467.     ; Vérification et/ou création du répertoire pour les préférences
  468.     (if (NOT (exists (pathonly #D_Path_AteoPrefs)))
  469.     (
  470.         (message "\n\n" #Mess_Create_Repertory)
  471.         (makedir (pathonly #D_Path_AteoPrefs))
  472.         (CopyFile #S_Icone_AteoPrefs (cat (pathonly #D_Path_AteoPrefs) #Ext_Info))
  473.         (tooltype
  474.             (dest (pathonly #D_Path_AteoPrefs))
  475.             (settooltype "** ICON BY ATEO CONCEPTS **" "")
  476.             (noposition)
  477.         )
  478.     ))
  479. )
  480.  
  481. (procedure AteoSer
  482.     (CheckPrefsDrawer)
  483.  
  484.     ; Copie de AteoSerPrefs et paramétrage des tooltytpes
  485.     ;****************************************************
  486.     (CopyFileCV (tackon #S_Path_AteoSer #File_AteoSerPrefs) (tackon #D_Path_AteoPrefs #File_AteoSerPrefs))
  487.  
  488.     (if (NOT (exists (tackon #D_Path_AteoPrefs (cat #File_AteoSerPrefs ".info"))))
  489.     (
  490.         (CopyFile (tackon #S_Path_AteoSer (cat #File_AteoSerPrefs ".info")) (tackon #D_Path_AteoPrefs (cat #File_AteoSerPrefs ".info")))
  491.         (tooltype
  492.             (dest (tackon #D_Path_AteoPrefs #File_AteoSerPrefs))
  493.             (noposition)
  494.             (settooltype "DEVICE_NAME"
  495.                 (askstring
  496.                     (prompt "\n" #Mess_ToolType_Device)
  497.                     (help "\n" #Help_ToolType_Device)
  498.                     (default #Default_Device_Name)
  499.                 )
  500.             )
  501.  
  502.             (settooltype "DEVICE_UNIT"
  503.                 (cat (asknumber
  504.                         (prompt "\n" #Mess_ToolType_Unit)
  505.                         (help #Help_ToolType_Unit)
  506.                         (range 0 7)
  507.                         (default #Default_Device_Unit)
  508.                     )
  509.                 )
  510.             )
  511.  
  512.             (settooltype "UNIT_0_BOARD_OFFSET"
  513.                 (askstring
  514.                     (prompt "\n" #Mess_ToolType_Offset)
  515.                     (help #Help_ToolType_Offset)
  516.                     (default #Default_SER0_Offset)
  517.                 )
  518.             )
  519.  
  520.             (settooltype "UNIT_0_IRQ"
  521.                 (askstring
  522.                     (prompt "\n" #Mess_ToolType_IRQ)
  523.                     (help #Help_ToolType_IRQ)
  524.                     (default #Default_SER0_IRQ)
  525.                 )
  526.             )
  527.  
  528.             (settooltype "UNIT_0_OSC_FREQ"
  529.                 (cat (asknumber
  530.                         (prompt "\n" #Mess_ToolType_Frequency)
  531.                         (help #Help_ToolType_Frequency)
  532.                         (range 1000000 10000000)
  533.                         (default #Default_SER0_Frequency)
  534.                     )
  535.                 )
  536.             )
  537.         )
  538.     ))
  539.  
  540.     ; Copie du catalogue
  541.     ;*******************
  542.     (if (exists (tackon #S_Path_Catalog_AteoSer (cat #File_AteoSerPrefs #ext_Catalog)))
  543.     (
  544.         ; Vérification et/ou création du répertoire pour les catalogues
  545.         (if (NOT (exists #LOCALE))
  546.             (makedir #LOCALE)
  547.         )
  548.  
  549.         ; Copie du catalogue
  550.         (CopyFileCV (tackon #S_Path_Catalog_AteoSer (cat #File_AteoSerPrefs #ext_Catalog)) (tackon #LOCALE (cat #File_AteoSerPrefs #ext_Catalog)))
  551.     ))
  552.  
  553.     ; Copie de AteoSer.Device
  554.     ;************************
  555.     (CopyFileCV (tackon #S_Path_AteoSer #File_AteoSerDevice) (tackon #DEVS #File_AteoSerDevice))
  556. )
  557.  
  558. (procedure AteoPar
  559.     (CheckPrefsDrawer)
  560.  
  561.     ; Copie de AteoParPrefs et paramétrage des tooltytpes
  562.     ;****************************************************
  563.     (CopyFileCV (tackon #S_Path_AteoPar #File_AteoParPrefs) (tackon #D_Path_AteoPrefs #File_AteoParPrefs))
  564.  
  565.     (if (NOT (exists (tackon #D_Path_AteoPrefs (cat #File_AteoParPrefs ".info"))))
  566.     (
  567.         (CopyFile (tackon #S_Path_AteoPar (cat #File_AteoParPrefs ".info")) (tackon #D_Path_AteoPrefs (cat #File_AteoParPrefs ".info")))
  568.         (tooltype
  569.             (dest (tackon #D_Path_AteoPrefs #File_AteoParPrefs))
  570.             (noposition)
  571.             (settooltype "DEVICE_NAME"
  572.                 (askstring
  573.                     (prompt "\n" #Mess_ToolType_Device)
  574.                     (help "\n" #Help_ToolType_Device)
  575.                     (default #Default_Device_Name)
  576.                 )
  577.             )
  578.  
  579.             (settooltype "DEVICE_UNIT"
  580.                 (cat (asknumber
  581.                         (prompt "\n" #Mess_ToolType_Unit)
  582.                         (help #Help_ToolType_Unit)
  583.                         (range 0 7)
  584.                         (default #Default_Device_Unit)
  585.                     )
  586.                 )
  587.             )
  588.         )
  589.     ))
  590.  
  591.     ; Copie du catalogue
  592.     ;*******************
  593.     (if (exists (tackon #S_Path_Catalog_AteoPar (cat #File_AteoParPrefs #ext_Catalog)))
  594.     (
  595.         ; Vérification et/ou création du répertoire pour les catalogues
  596.         (if (NOT (exists #LOCALE))
  597.             (makedir #LOCALE)
  598.         )
  599.  
  600.         ; Copie du catalogue
  601.         (CopyFileCV (tackon #S_Path_Catalog_AteoPar (cat #File_AteoParPrefs #ext_Catalog)) (tackon #LOCALE (cat #File_AteoParPrefs #ext_Catalog)))
  602.     ))
  603.  
  604.     ; Copie de AteoPar.Device
  605.     ;************************
  606.     (CopyFileCV (tackon #S_Path_AteoPar #File_AteoParDevice) (tackon #DEVS #File_AteoParDevice))
  607. )
  608.  
  609. (procedure AteoNet
  610.     ; Vérification et/ou création du répertoire pour le device
  611.     (if (NOT (exists #NETWORKS))
  612.         (makedir #NETWORKS)
  613.     )
  614.  
  615.     ; Copie de AteoNet.Device
  616.     ;************************
  617.     (CopyFileCV (tackon #S_Path_AteoNet #File_AteoNetDevice) (tackon #NETWORKS #File_AteoNetDevice))
  618.  
  619.     ;Copie et installation du programme `AmiTCP'
  620.     ;*******************************************
  621.     (AskSource (tackon #S_Path_AmiTCP #File_AmiTCP) #AmiTCP_Rev)
  622.     (Expand "AmiTCP")
  623.     (textfile
  624.         (safe)
  625.         (dest (tackon #Working_Path #Script_Name))
  626.         (append
  627.             "Stack 20000\n"
  628.             "Cd " #S_Path_Install_AmiTCP "\n"
  629.             #Working_Path "Installer " #File_Install_AmiTCP
  630.             " LANGUAGE " @language " APPNAME AmiTCP MINUSER AVERAGE\n"
  631.         )
  632.     )
  633.     (Lancement #File_Install_AmiTCP)
  634. )
  635.  
  636.  
  637. ;***************************************
  638. ;************ INSTALLATIONS ************
  639. ;***************************************
  640.  
  641. (complete 0)
  642.  
  643. (onerror
  644.     (working "\n" #Mess_CleanUp "...\n\n" #Mess_Wait)
  645.     (delete
  646.         (all)
  647.         (safe)
  648.         (optional "force")
  649.         #Working_Path
  650.     )
  651. )
  652.  
  653. (message "\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n\n"
  654. #Mess_Welcome
  655.         "\n\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~"
  656.         "\n\nInstallation " #Install_Rev
  657.         "\n- Translated by : " #Mess_Translation_Name " -"
  658.         "\nCopyright © Atéo Concepts " #Date
  659.         "\n\n(note : If you want to integrate your local translation, please contact Atéo Concepts)"
  660. )
  661.  
  662. (welcome)
  663.  
  664. ; Test de la mémoire
  665. ;*******************
  666. (set #Avail_Memory (database "total-mem"))
  667. (transcript "Mémoire nécessaire : " #Minimum_Memory)
  668. (transcript "Mémoire disponible : " #Avail_Memory)
  669. ;(if (< #Avail_Memory #Minimum_Memory)
  670. ;(
  671. ;    (transcript "Not enought memrory. End of installation...")
  672. ;    (abort (cat "\n" #Mess_Error_Memory "..."))
  673. ;))
  674.  
  675. (complete 5)
  676.  
  677. ;(if (OR (= #Install_Pixel64 "1") (= #Install_AteoNet "1"))
  678. ;(
  679.     ; Création d'un répertoire en ram et copie de quelques fichiers
  680.     ;**************************************************************
  681.      (makedir
  682.          #Working_Path
  683.          (safe)
  684.      )
  685.      (message (cat "\n\n" #Mess_Prepare))
  686.      (CopyFile (tackon #Install_Path "Installer") (tackon #Working_Path "Installer"))
  687.      (CopyFile (tackon #Install_Path #Compressor) (tackon #Working_Path #Compressor))
  688. ;))
  689.  
  690. (complete 20)
  691.  
  692. ; Installation : AteoBus.library et StartAteoBus
  693. ;***********************************************
  694. (set #Source (cat (tackon #S_Path_StartAteoBus #File_StartAteoBus) ".lha"))
  695. (Expand "StartAteoBus")
  696. (CopyFileCV (tackon #Working_Path #File_AteoBus_Library) (tackon #LIB #File_AteoBus_Library))
  697. (complete 30)
  698. (StartAteoBus)
  699.  
  700. (complete 40)
  701.  
  702. ; Installation : Install_Pixel64
  703. ;--------------------------------
  704. (if (= #Install_Pixel64 "1")
  705. (
  706.     (set #Flag_Picasso96    1)
  707.     (set #Flag_ModePro        2)
  708.  
  709.     ; Choix : Installation Picasso96 / ModePro
  710.     ;*****************************************
  711.      (set #Install_Selection
  712.          (askoptions
  713.              (prompt (cat "\n" #Mess_Choice "\n"))
  714.              (help "\n" #Help_Choice)
  715.              (choices "Picasso96" "ModePro")
  716.              (default (+ #Flag_Picasso96 #Flag_ModePro))
  717.          )
  718.      )
  719.  
  720.     (complete 60)
  721.  
  722.     ;Copie et installation du programme `Picasso96'
  723.     ;**********************************************
  724.     (if (BITAND #Install_Selection #Flag_Picasso96)
  725.     (
  726.         (AskSource (tackon #S_Path_Picasso96 #File_Picasso96) #Picasso96_Rev)
  727.         (Expand "Picasso96")
  728.         (textfile
  729.             (safe)
  730.             (dest (tackon #Working_Path #Script_Name))
  731.             (append
  732.                 "Stack 20000\n"
  733.                 "Cd " #S_Path_Install_Picasso96 "\n"
  734.                 #Working_Path "Installer " #File_Install_Picasso96
  735.                 " LANGUAGE " @language " APPNAME Picasso96 MINUSER AVERAGE\n"
  736.             )
  737.         )
  738.         (Lancement #File_Install_Picasso96)
  739.     ))
  740.  
  741.     (complete 80)
  742.  
  743.     ;Copie et installation du programme `ModePro'
  744.     ;********************************************
  745.     (if (BITAND #Install_Selection #Flag_ModePro)
  746.     (
  747.         (set #Source (cat (tackon #S_Path_ModePro #File_ModePro) ".lha"))
  748.         (set #Destination #Working_Path)
  749.         (Expand (fileonly #File_ModePro))
  750.         (textfile
  751.             (safe)
  752.             (dest (tackon #Working_Path #Script_Name))
  753.             (append
  754.                 "Stack 20000\n"
  755.                 "Cd " #S_Path_Install_ModePro "\n"
  756.                 #Working_Path "Installer " #File_Install_ModePro
  757.                 " LANGUAGE " @language " APPNAME ModePro MINUSER NOVICE\n"
  758.             )
  759.         )
  760.         (Lancement #File_Install_ModePro)
  761.  
  762.         (if (exists (tackon #ENVARC #File_Prefs_ModePro))
  763.             (if    (= (askbool
  764.                     (prompt (cat "\n\n" #Mess_Prefs_ModePro))
  765.                     (help "\n" #Help_Prefs_ModePro)
  766.                 ) "1")
  767.                 (
  768.                     (CopyFile (tackon #S_Path_ModePro #File_Prefs_ModePro) (tackon #ENV #File_Prefs_ModePro))
  769.                     (CopyFile (tackon #S_Path_ModePro #File_Prefs_ModePro) (tackon #ENVARC #File_Prefs_ModePro))
  770.             ))
  771.             (
  772.                 (CopyFile (tackon #S_Path_ModePro #File_Prefs_ModePro) (tackon #ENV #File_Prefs_ModePro))
  773.                 (CopyFile (tackon #S_Path_ModePro #File_Prefs_ModePro) (tackon #ENVARC #File_Prefs_ModePro))
  774.             )
  775.         )
  776.     ))
  777.  
  778.     (complete 90)
  779. ))
  780.  
  781. ; Installation : Install_AteoSer, Install_AteoPar, Install_AteoNet
  782. ;------------------------------------------------------------------
  783. (if (OR (= #Install_AteoSer "1") (= #Install_AteoPar "1") (= #Install_AteoNet "1"))
  784. (
  785.     ; Choix : Installation : AteoSerPrefs / AteoParPrefs / AteoNet
  786.     ;*************************************************************
  787.     (if (AND (= #Install_AteoSer "1") (= #Install_AteoPar "0") (= #Install_AteoNet "0"))
  788.         (AteoSer)
  789.     )
  790.  
  791.     (if (AND (= #Install_AteoSer "0") (= #Install_AteoPar "1") (= #Install_AteoNet "0"))
  792.         (AteoPar)
  793.     )
  794.  
  795.     (if (AND (= #Install_AteoSer "0") (= #Install_AteoPar "0") (= #Install_AteoNet "1"))
  796.         (AteoNet)
  797.     )
  798.  
  799.     (if (AND (= #Install_AteoSer "1") (= #Install_AteoPar "1"))
  800.     (
  801.         (set #Flag_AteoSer        1)
  802.         (set #Flag_AteoPar        2)
  803.         (set #Flag_AteoNet        4)
  804.  
  805.          (set #Install_Selection
  806.              (askoptions
  807.                  (prompt (cat "\n" #Mess_Choice "\n"))
  808.                 (help "\n" #Help_Choice)
  809.                 (if (= #Install_AteoNet "0")
  810.                 (
  811.                     (choices "AteoSer" "AteoPar")
  812.                     (default (+ #Flag_AteoSer #Flag_AteoPar))
  813.                 )
  814.                 (
  815.                     (choices "AteoSer" "AteoPar" "AteoNet")
  816.                     (default (+ #Flag_AteoSer #Flag_AteoPar #Flag_AteoNet))
  817.                 ))
  818.             )
  819.         )
  820.  
  821.         (if (BITAND #Install_Selection #Flag_AteoSer)
  822.             (AteoSer)
  823.         )
  824.  
  825.         (complete 60)
  826.  
  827.         (if (BITAND #Install_Selection #Flag_AteoPar)
  828.             (AteoPar)
  829.         )
  830.  
  831.         (complete 80)
  832.  
  833.         (if (BITAND #Install_Selection #Flag_AteoNet)
  834.         (
  835.             (AteoNet)
  836.             (complete 90)
  837.         ))
  838.     ))
  839. ))
  840.  
  841. ;(if (OR (= #Install_Pixel64 "1") (= #Install_AteoNet "1"))
  842. ;(
  843.         (working "\n" #Mess_CleanUp "...\n\n" #Mess_Wait)
  844.         (delete
  845.             #Working_Path
  846.              (all)
  847.              (safe)
  848.              (optional "force")
  849.         )
  850. ;))
  851.  
  852. (complete 100)
  853.  
  854. ;(exit "\n\n\n" #Mess_End "..." )
  855.